home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 28 / PC Gamer IT CD 28 1-2.iso / MEDIA / REVIEWS.DXR / Internal_52.ls < prev    next >
Encoding:
Text File  |  1997-12-01  |  4.1 KB  |  191 lines
  1. on exitFrame
  2.   set the visible of sprite 11 to rollOver(4)
  3.   set the visible of sprite 12 to rollOver(5)
  4.   set the visible of sprite 18 to rollOver(5)
  5.   set the visible of sprite 13 to rollOver(6)
  6.   set the visible of sprite 19 to rollOver(6)
  7.   set the visible of sprite 14 to rollOver(7)
  8.   set the visible of sprite 20 to rollOver(7)
  9.   set the visible of sprite 21 to rollOver(8)
  10.   set the visible of sprite 15 to rollOver(8)
  11.   set the visible of sprite 16 to rollOver(9)
  12.   set the visible of sprite 22 to rollOver(9)
  13.   set the cursor of sprite 4 to 280
  14.   set the cursor of sprite 5 to 280
  15.   set the cursor of sprite 6 to 280
  16.   set the cursor of sprite 7 to 280
  17.   set the cursor of sprite 8 to 280
  18.   set the cursor of sprite 9 to 280
  19.   set the cursor of sprite 25 to 280
  20.   set the cursor of sprite 26 to 280
  21.   set the cursor of sprite 27 to 280
  22.   set the cursor of sprite 28 to 280
  23.   set the cursor of sprite 29 to 280
  24.   set the cursor of sprite 31 to 280
  25.   set the cursor of sprite 10 to 280
  26. end
  27.  
  28. on keyDown
  29.   global gAlpha
  30.   cursor(4)
  31.   case the key of
  32.     "a":
  33.       set i to "A"
  34.     "b":
  35.       set i to "B"
  36.     "c":
  37.       set i to "C"
  38.     "d":
  39.       set i to "D"
  40.     "e":
  41.       set i to "E"
  42.     "f":
  43.       set i to "F"
  44.     "g":
  45.       set i to "G"
  46.     "h":
  47.       set i to "H"
  48.     "i":
  49.       set i to "I"
  50.     "j":
  51.       set i to "J"
  52.     "k":
  53.       set i to "K"
  54.     "l":
  55.       set i to "L"
  56.     "m":
  57.       set i to "M"
  58.     "n":
  59.       set i to "N"
  60.     "o":
  61.       set i to "O"
  62.     "p":
  63.       set i to "P"
  64.     "q":
  65.       set i to "Q"
  66.     "r":
  67.       set i to "R"
  68.     "s":
  69.       set i to "S"
  70.     "t":
  71.       set i to "T"
  72.     "u":
  73.       set i to "U"
  74.     "v":
  75.       set i to "V"
  76.     "w":
  77.       set i to "W"
  78.     "x":
  79.       set i to "X"
  80.     "y":
  81.       set i to "Y"
  82.     "z":
  83.       set i to "Z"
  84.     "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z":
  85.       set i to the key
  86.       put i
  87.   end case
  88.   put i into field "alphakey"
  89.   UpdateAlpha()
  90.   case i of
  91.     "A":
  92.       set gAlpha to 1
  93.     "B":
  94.       set gAlpha to 2
  95.     "C":
  96.       set gAlpha to 3
  97.     "D":
  98.       set gAlpha to 4
  99.     "E":
  100.       set gAlpha to 5
  101.     "F":
  102.       set gAlpha to 6
  103.     "G":
  104.       set gAlpha to 7
  105.     "H":
  106.       set gAlpha to 8
  107.     "I":
  108.       set gAlpha to 9
  109.     "J":
  110.       set gAlpha to 10
  111.     "K":
  112.       set gAlpha to 11
  113.     "L":
  114.       set gAlpha to 12
  115.     "M":
  116.       set gAlpha to 13
  117.     "N":
  118.       set gAlpha to 14
  119.     "O":
  120.       set gAlpha to 15
  121.     "P":
  122.       set gAlpha to 16
  123.     "Q":
  124.       set gAlpha to 17
  125.     "R":
  126.       set gAlpha to 18
  127.     "S":
  128.       set gAlpha to 19
  129.     "T":
  130.       set gAlpha to 20
  131.     "U":
  132.       set gAlpha to 21
  133.     "V":
  134.       set gAlpha to 22
  135.     "W":
  136.       set gAlpha to 23
  137.     "X":
  138.       set gAlpha to 24
  139.     "Y":
  140.       set gAlpha to 25
  141.     "Z":
  142.       set gAlpha to 26
  143.   end case
  144.   cursor(-1)
  145. end
  146.  
  147. on alertIt
  148.   beep()
  149.   alert("You pressed an A")
  150. end
  151.  
  152. on UpdateAlpha
  153.   global gTB
  154.   puppetSound(1, "pioolb")
  155.   mSetCriteria(gTB, "appname", "start", field "alphaKey")
  156.   mSelect(gTB)
  157.   set n to mSelectCount(gTB)
  158.   if n <> 0 then
  159.     put n into field "NumberFound"
  160.     put mGetField(gTB, "category") into field "category"
  161.     put mGetField(gTB, "appname") into field "appname"
  162.     put mGetField(gTB, "highs") into field "highs"
  163.     put mGetField(gTB, "lows") into field "lows"
  164.     put mGetField(gTB, "BottomLine") into field "BottomLine"
  165.     put field "Ratings" & "%" into field "Rating"
  166.     put mGetField(gTB, "AlphSortKey") into field "AlphSortKey"
  167.     put mGetField(gTB, "CoName") into field "CoName"
  168.     put mGetField(gTB, "Address") into field "Address"
  169.     put mGetField(gTB, "City") into field "City"
  170.     put mGetField(gTB, "State") into field "State"
  171.     put mGetField(gTB, "Zip") into field "Zip"
  172.     put mGetField(gTB, "Phone") into field "Phone"
  173.     put mGetField(gTB, "Phone2") into field "Phone2"
  174.     put mGetField(gTB, "email") into field "email"
  175.   else
  176.     CheckAlphaSearch()
  177.   end if
  178.   showSelection()
  179.   updateDisplay()
  180. end
  181.  
  182. on CheckAlphaSearch
  183.   global gAlpha
  184.   set gAlpha to gAlpha + 1
  185.   if gAlpha > 26 then
  186.     set gAlpha to 1
  187.   end if
  188.   put char gAlpha of field "alphaBet" into field "alphakey"
  189.   UpdateAlpha()
  190. end
  191.